home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / program / prtfrm51.zip / FRMSRC.ZIP / FDEMO15.DFM / FDEMO15.txt
Text File  |  1996-06-20  |  8KB  |  300 lines
  1. object Form15: TForm15
  2.   Left = 131
  3.   Top = 319
  4.   BorderStyle = bsDialog
  5.   Caption = 'Demo 12 - It'#39's getting to many now!'
  6.   ClientHeight = 383
  7.   ClientWidth = 527
  8.   Font.Color = clBlack
  9.   Font.Height = -14
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = [fsBold]
  12.   PixelsPerInch = 120
  13.   Position = poScreenCenter
  14.   TextHeight = 16
  15.   object Bevel1: TBevel
  16.     Left = 10
  17.     Top = 10
  18.     Width = 503
  19.     Height = 319
  20.     Shape = bsFrame
  21.     IsControl = True
  22.   end
  23.   object Memo1: TMemo
  24.     Left = 28
  25.     Top = 24
  26.     Width = 473
  27.     Height = 289
  28.     Font.Color = clBlack
  29.     Font.Height = -13
  30.     Font.Name = 'Arial'
  31.     Font.Style = [fsBold]
  32.     Lines.Strings = (
  33.       'This demo was written because of a special request namely:'
  34.       ''
  35.       
  36.         '  " It'#39's all fine to have this amazing print control called TPri' +
  37.         'ntWin '
  38.       '    but now I have to set up each page on the screen before I'
  39.       
  40.         '    am able to print or view it! Can I do something about it? An' +
  41.         'd'
  42.       '    can I generate more than 1 page with completely different '
  43.       '    information on the different pages?"'
  44.       ''
  45.       'The answer is Yes. You do not need to draw anything on the '
  46.       
  47.         'screen to be able to print it to the printer. In the following d' +
  48.         'emo'
  49.       'we generate a 4-page demo which consists of  TTable'
  50.       'components,  TQuery components, a wide variety of fonts and'
  51.       'text and a few images without displaying on the screen. All'
  52.       'this is done with the TPrintWin component of PrintIt Of course, '
  53.       
  54.         'you could also display the information on the screen if you want' +
  55.         'ed '
  56.       'to by using the normal Delphi components.'
  57.       ' ')
  58.     ParentFont = False
  59.     TabOrder = 0
  60.   end
  61.   object Preview: TBitBtn
  62.     Left = 109
  63.     Top = 337
  64.     Width = 88
  65.     Height = 32
  66.     Caption = 'Pre&View'
  67.     TabOrder = 1
  68.     OnClick = PreviewClick
  69.     Glyph.Data = {
  70.       76010000424D7601000000000000760000002800000020000000100000000100
  71.       04000000000000010000130B0000130B00000000000000000000000000000000
  72.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  73.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
  74.       00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
  75.       8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
  76.       8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
  77.       8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
  78.       03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
  79.       03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
  80.       33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
  81.       33333337FFFF7733333333300000033333333337777773333333}
  82.     NumGlyphs = 2
  83.   end
  84.   object Exit: TBitBtn
  85.     Left = 271
  86.     Top = 337
  87.     Width = 88
  88.     Height = 32
  89.     Caption = '&Exit'
  90.     ModalResult = 2
  91.     TabOrder = 2
  92.     NumGlyphs = 2
  93.   end
  94.   object DBImage1: TDBImage
  95.     Left = 376
  96.     Top = 352
  97.     Width = 81
  98.     Height = 17
  99.     DataField = 'BMP'
  100.     DataSource = DataSource1
  101.     TabOrder = 3
  102.     Visible = False
  103.   end
  104.   object DBImage2: TDBImage
  105.     Left = 8
  106.     Top = 344
  107.     Width = 89
  108.     Height = 25
  109.     DataField = 'Graphic'
  110.     DataSource = DataSource3
  111.     TabOrder = 4
  112.     Visible = False
  113.   end
  114.   object Table1: TTable
  115.     Active = True
  116.     DatabaseName = 'DBDEMOS'
  117.     TableName = 'ANIMALS.DBF'
  118.     Left = 40
  119.     object Table1NAME: TStringField
  120.       FieldName = 'NAME'
  121.       Size = 10
  122.     end
  123.     object Table1SIZE: TSmallintField
  124.       FieldName = 'SIZE'
  125.       Visible = False
  126.     end
  127.     object Table1WEIGHT: TSmallintField
  128.       FieldName = 'WEIGHT'
  129.     end
  130.     object Table1AREA: TStringField
  131.       FieldName = 'AREA'
  132.     end
  133.     object Table1BMP: TBlobField
  134.       FieldName = 'BMP'
  135.       Visible = False
  136.       Size = 1
  137.     end
  138.   end
  139.   object Table2: TTable
  140.     Active = True
  141.     DatabaseName = 'DBDEMOS'
  142.     TableName = 'INDUSTRY.DBF'
  143.     Left = 92
  144.     Top = 4
  145.     object Table2IND_CODE: TSmallintField
  146.       FieldName = 'IND_CODE'
  147.     end
  148.     object Table2IND_NAME: TStringField
  149.       FieldName = 'IND_NAME'
  150.       Size = 5
  151.     end
  152.     object Table2LONG_NAME: TStringField
  153.       FieldName = 'LONG_NAME'
  154.     end
  155.   end
  156.   object Query1: TQuery
  157.     Active = True
  158.     DatabaseName = 'DBDEMOS'
  159.     SQL.Strings = (
  160.       'select * from biolife where category like '#39's%'#39)
  161.     Left = 148
  162.     Top = 4
  163.     object Query1SpeciesNo: TFloatField
  164.       DisplayWidth = 9
  165.       FieldName = 'Species No'
  166.     end
  167.     object Query1Category: TStringField
  168.       DisplayWidth = 10
  169.       FieldName = 'Category'
  170.       Size = 15
  171.     end
  172.     object Query1Common_Name: TStringField
  173.       DisplayWidth = 12
  174.       FieldName = 'Common_Name'
  175.       Size = 30
  176.     end
  177.     object Query1Graphic: TGraphicField
  178.       FieldName = 'Graphic'
  179.       Visible = False
  180.     end
  181.   end
  182.   object Query2: TQuery
  183.     Active = True
  184.     DatabaseName = 'DBDEMOS'
  185.     SQL.Strings = (
  186.       'select * from country where Continent = '#39'North America'#39)
  187.     Left = 200
  188.     Top = 4
  189.     object Query2Name: TStringField
  190.       DisplayWidth = 12
  191.       FieldName = 'Name'
  192.       Size = 24
  193.     end
  194.     object Query2Capital: TStringField
  195.       DisplayWidth = 12
  196.       FieldName = 'Capital'
  197.       Size = 24
  198.     end
  199.     object Query2Continent: TStringField
  200.       DisplayWidth = 13
  201.       FieldName = 'Continent'
  202.       Size = 24
  203.     end
  204.     object Query2Population: TFloatField
  205.       DisplayWidth = 10
  206.       FieldName = 'Population'
  207.       DisplayFormat = '#,###'
  208.     end
  209.   end
  210.   object Query3: TQuery
  211.     Active = True
  212.     DatabaseName = 'DBDEMOS'
  213.     SQL.Strings = (
  214.       'select * from customer where country = '#39'Canada'#39)
  215.     Left = 256
  216.     Top = 4
  217.     object Query3Company: TStringField
  218.       DisplayWidth = 21
  219.       FieldName = 'Company'
  220.       Size = 30
  221.     end
  222.     object Query3Phone: TStringField
  223.       DisplayWidth = 15
  224.       FieldName = 'Phone'
  225.       Size = 15
  226.     end
  227.     object Query3LastInvoiceDate: TDateTimeField
  228.       DisplayWidth = 13
  229.       FieldName = 'LastInvoiceDate'
  230.     end
  231.   end
  232.   object DataSource1: TDataSource
  233.     DataSet = Table1
  234.     Left = 56
  235.     Top = 4
  236.   end
  237.   object DataSource2: TDataSource
  238.     DataSet = Table2
  239.     Left = 108
  240.     Top = 8
  241.   end
  242.   object DataSource3: TDataSource
  243.     DataSet = Query1
  244.     Left = 160
  245.     Top = 4
  246.   end
  247.   object DataSource4: TDataSource
  248.     DataSet = Query2
  249.     Left = 212
  250.     Top = 4
  251.   end
  252.   object DataSource5: TDataSource
  253.     DataSet = Query3
  254.     Left = 272
  255.     Top = 4
  256.   end
  257.   object PrintWin1: TPrintWin
  258.     HeaderFont.Color = clWindowText
  259.     HeaderFont.Height = 16
  260.     HeaderFont.Name = 'Arial'
  261.     HeaderFont.Style = []
  262.     FooterFont.Color = clWindowText
  263.     FooterFont.Height = 12
  264.     FooterFont.Name = 'Arial'
  265.     FooterFont.Style = []
  266.     FrameObjects = True
  267.     clBtnFaceAsWhite = True
  268.     DateTimeStampEnabled = True
  269.     PageNumberEnabled = True
  270.     OutputTo = poViewer
  271.     Orientation = Portrait
  272.     Units = poInches
  273.     ViewButtonVisible = False
  274.     LineWidth = 0
  275.     GridBackDrop = False
  276.     GridBackDropUnits = poInches
  277.     ZoomPercentage = 100.000000000000000000
  278.     HeaderTop = 0.500000000000000000
  279.     HeaderLeft = 0.500000000000000000
  280.     HeaderEnabled = True
  281.     HeaderOutlined = False
  282.     HeaderFilled = False
  283.     TextColor = clBlack
  284.     ViewBkColor = 11234567
  285.     ViewHeading = 'Testing, Testing 1,2,3'
  286.     HeadingColor = clSilver
  287.     FrameStyle = frThin
  288.     FooterTop = 25.130000000000000000
  289.     FooterString = '                                                  '
  290.     FooterEnabled = True
  291.     FooterOutlined = False
  292.     FooterFilled = False
  293.     FixSansSerif = True
  294.     BorderLeft = 0.500000000000000000
  295.     BorderRight = 0.500000000000000000
  296.     LineSpacing = 2.800000000000000000
  297.     Left = 440
  298.   end
  299. end
  300.